home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / gfx / show / svoUtah22.lha / svoUtahRLE / source / URT / lib / cmd_name.c < prev    next >
C/C++ Source or Header  |  1990-08-02  |  1KB  |  52 lines
  1. /*
  2.  * This software is copyrighted as noted below.  It may be freely copied,
  3.  * modified, and redistributed, provided that the copyright notice is 
  4.  * preserved on all copies.
  5.  * 
  6.  * There is no warranty or other guarantee of fitness for this software,
  7.  * it is provided solely "as is".  Bug reports or fixes may be sent
  8.  * to the author, who may or may not act on them as he desires.
  9.  *
  10.  * You may not include this software in a program or other software product
  11.  * without supplying the source, or without informing the end-user that the 
  12.  * source is available for no extra charge.
  13.  *
  14.  * If you modify this software, you should include a notice giving the
  15.  * name of the person performing the modification, the date of modification,
  16.  * and the reason for such modification.
  17.  */
  18. /* 
  19.  * cmd_name.c - Extract command name from argv[0].
  20.  * 
  21.  * Author:    Spencer W. Thomas
  22.  *         EECS Dept.
  23.  *         University of Michigan
  24.  * Date:    Wed Jun 27 1990
  25.  * Copyright (c) 1990, University of Michigan
  26.  */
  27.  
  28. char *
  29. cmd_name( argv )
  30. char **argv;
  31. {
  32.     register char *cp, *a = *argv;
  33.  
  34.     /* Be paranoid. */
  35.     if ( !a )
  36.     return "(no-name)";
  37.  
  38.     /* Find end of file name. */
  39.     for ( cp = a; *cp; cp++ )
  40.     ;
  41.  
  42.     /* Find last / or beginning of command name. */
  43.     for ( cp--; *cp != '/' && cp > a; cp-- )
  44.     ;
  45.     
  46.     /* If it's a /, skip it. */
  47.     if ( *cp == '/' )
  48.     cp++;
  49.  
  50.     return cp;
  51. }
  52.